home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / COM / Handy Mail 1.0b4 folder.sit / Handy Mail 1.0b4 folder / Handy Mail v1.0b2 Installer / Handy Mail v1.0b2 ƒ / Resources / New Mail / background_2669.txt < prev    next >
Text File  |  1995-12-22  |  6KB  |  274 lines
  1. -- background: 2669 from stack: in
  2. -- bmap block id: 3708
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on tidy
  8.   -- global gTELine
  9.   -- put bg fld id 15 into line gTELine of bg fld id 14
  10.   put bg fld "subList" into temp
  11.   repeat with k = 1 to number of lines of temp
  12.     if line k of temp = "" then
  13.       delete line k of temp
  14.     end if
  15.   end repeat
  16.   put temp into bg fld "subList"
  17. end tidy
  18.  
  19. on updateSubList theText,theWord
  20.   global gTELine
  21.   if theWord = 4 then
  22.     put (word 1 to 3 of line gTELine of bg fld "subList") && theText into line gTELine of bg fld "subList"
  23.   else
  24.     put theText into word theWord of line gTELine of bg fld "subList"
  25.   end if
  26. end updateSubList
  27.  
  28. function omitSpace theText
  29. repeat
  30.   --if offset(" ",theText) 竕  0 then
  31.   get offset(" ",theText)
  32.   if it 竕  0 then
  33.     delete char offset(" ",theText) of theText
  34.   else
  35.     exit repeat
  36.   end if
  37. end repeat
  38. return theText
  39. end omitSpace
  40.  
  41.  
  42.  
  43. -- part 38 (field)
  44. -- low flags: 20
  45. -- high flags: 4001
  46. -- rect: left=66 top=6 right=21 bottom=421
  47. -- title width / last selected line: 1
  48. -- icon id / first selected line: 1 / 1
  49. -- text alignment: 0
  50. -- font id: 3
  51. -- text size: 9
  52. -- style flags: 0
  53. -- line height: 12
  54. -- part name: sendTo
  55.  
  56.  
  57. -- part 7 (button)
  58. -- low flags: 00
  59. -- high flags: A009
  60. -- rect: left=365 top=230 right=258 bottom=442
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Send
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   global mailGood
  72.   put true into mailGood
  73.   close window (short name of this stack)
  74. end mouseUp
  75.  
  76. on sendTheMail
  77.   global gFCHeaderShare,gFCBodyShare,gRecipientList
  78.  
  79.   put line 1 of bg fld "sendTo" into gRecipientList
  80.   if gRecipientList = "" then err "No recipient specified."
  81.   if "," is in gRecipientList then put replaceChar(gRecipientList,","," ") into gRecipientList
  82.  
  83.   put "Subject:" && bg fld "subject" & return into gFCHeaderShare
  84.   put "To:" && gRecipientList & return after gFCHeaderShare
  85.   put "Reply-To:" && bg fld "Reply" & return after gFCHeaderShare
  86.   put "From:" && bg fld "Reply" & return after gFCHeaderShare
  87.   put bg fld "body" into gFCBodyShare
  88.  
  89.   put hilite of bg btn id 43 into viaInternet
  90.  
  91.   if viaInternet = true then
  92.     serverTask "sendMail_Internet"
  93.   else
  94.     serverTask "sendMail_FC"
  95.   end if
  96.  
  97.   if freeSize of this stack > 5000 then doMenu "compact stack"
  98. end sendTheMail
  99.  
  100. on err theErr
  101.   beep
  102.   answer theErr with "OK"
  103.   set hilite of bg btn id 7 to false
  104.   exit to hyperCard
  105. end err
  106.  
  107.  
  108.  
  109. -- part 39 (field)
  110. -- low flags: 20
  111. -- high flags: 4001
  112. -- rect: left=66 top=23 right=38 bottom=421
  113. -- title width / last selected line: 1
  114. -- icon id / first selected line: 1 / 1
  115. -- text alignment: 0
  116. -- font id: 3
  117. -- text size: 9
  118. -- style flags: 0
  119. -- line height: 12
  120. -- part name: reply
  121. ----- HyperTalk script -----
  122. on closeField
  123.   checkIt
  124. end closeField
  125.  
  126. on exitField
  127.   checkIt
  128. end exitField
  129.  
  130. on checkIt
  131.   if bg fld "reply" = "" then
  132.     if hilite of bg btn id 43 then
  133.       put 43 into theBtn
  134.     else
  135.       put 44 into theBtn
  136.     end if
  137.     send mouseUp to bg btn id theBtn
  138.   end if
  139. end checkIt
  140.  
  141.  
  142.  
  143. -- part 25 (button)
  144. -- low flags: 00
  145. -- high flags: A008
  146. -- rect: left=279 top=234 right=254 bottom=354
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Cancel
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   global mailGood
  158.   put false into mailGood
  159.   close window (short name of this stack)
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 34 (field)
  165. -- low flags: 20
  166. -- high flags: 4001
  167. -- rect: left=66 top=40 right=55 bottom=421
  168. -- title width / last selected line: 1
  169. -- icon id / first selected line: 1 / 1
  170. -- text alignment: 0
  171. -- font id: 3
  172. -- text size: 9
  173. -- style flags: 0
  174. -- line height: 12
  175. -- part name: subject
  176.  
  177.  
  178. -- part 27 (field)
  179. -- low flags: 24
  180. -- high flags: 8007
  181. -- rect: left=10 top=75 right=226 bottom=438
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 0
  185. -- font id: 4
  186. -- text size: 9
  187. -- style flags: 0
  188. -- line height: 12
  189. -- part name: body
  190. ----- HyperTalk script -----
  191. on mouseUp
  192.   put selectedText(me) into temp
  193.   -- delete word 1 of temp
  194.   put temp into bg fld "editHeader"
  195. end mouseUp
  196.  
  197.  
  198. -- part 41 (button)
  199. -- low flags: 00
  200. -- high flags: 2000
  201. -- rect: left=6 top=25 right=37 bottom=56
  202. -- title width / last selected line: 0
  203. -- icon id / first selected line: 0 / 0
  204. -- text alignment: 1
  205. -- font id: 0
  206. -- text size: 12
  207. -- style flags: 0
  208. -- line height: 16
  209. -- part name: 
  210. ----- HyperTalk script -----
  211. on mouseDown
  212.   put bg fld "reply" into t
  213.   put replaceAliasStr(bg fld "reply") into bg fld "reply"
  214.  
  215.   wait until the mouse is up
  216.   put t into bg fld "reply"
  217. end mouseDown
  218.  
  219.  
  220. -- part 42 (button)
  221. -- low flags: 00
  222. -- high flags: 0000
  223. -- rect: left=431 top=3 right=19 bottom=443
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 22604 / 22604
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: 
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   callHelp "New Mail"
  235. end mouseUp
  236.  
  237.  
  238.  
  239. -- part 43 (button)
  240. -- low flags: 00
  241. -- high flags: E106
  242. -- rect: left=66 top=60 right=72 bottom=131
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 1
  246. -- font id: 3
  247. -- text size: 9
  248. -- style flags: 0
  249. -- line height: 12
  250. -- part name: Internet
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   put "[Admin]@[Domain]" into bg fld "reply"
  254. end mouseUp
  255.  
  256.  
  257. -- part 44 (button)
  258. -- low flags: 00
  259. -- high flags: A106
  260. -- rect: left=135 top=60 right=72 bottom=206
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 3
  265. -- text size: 9
  266. -- style flags: 0
  267. -- line height: 12
  268. -- part name: FirstClass
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   global gFCAdminName
  272.   put gFCAdminName into bg fld "reply"
  273. end mouseUp
  274.